﻿Imports WeifenLuo.WinFormsUI.Docking

Public Class ErrorViewDock
    Inherits BaseDock

    Public Property ErrorView As ErrorView

    Public Sub New()
        ErrorView = New ErrorView()
        ErrorView.Dock = DockStyle.Fill

        Text = "Error Output"

        DockHandler.HideOnClose = True

        DockAreas = WeifenLuo.WinFormsUI.Docking.DockAreas.DockBottom Or
            WeifenLuo.WinFormsUI.Docking.DockAreas.DockTop Or
            WeifenLuo.WinFormsUI.Docking.DockAreas.Float

        ' Default to bottom
        'DockState = WeifenLuo.WinFormsUI.Docking.DockState.DockBottom

        Me.Controls.Add(ErrorView)
    End Sub

End Class
